//extract doman name from an email address

function EmailDomain(const email: string):string;
var
   Pos_AT : integer;
begin
   Pos_AT := Pos('@', email) ;
   Result := Copy(email, Pos_AT + 1, Length(email) - Pos_AT)
end;